home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amoslist.lzh / AMOSLIST / 000198_amos-request@svcs1.digex.net_Fri Sep 15 20:57:00 1995.msg < prev    next >
Internet Message Format  |  1995-10-02  |  3KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id UAA13196;  for <mcox@access.digex.net> ; Fri, 15 Sep 1995 20:57:00 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id SAA12457 for amos-out; Fri, 15 Sep 1995 18:16:46 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id SAA12454 for <amos-list@svcs1.digex.net>; Fri, 15 Sep 1995 18:16:44 -0400
  4. Received: from red.paston.co.uk (red.paston.co.uk [194.129.188.3]) by mail1.access.digex.net (8.6.12/8.6.12) with SMTP id SAA26495;  for <amos-list@access.digex.net> ; Fri, 15 Sep 1995 18:16:40 -0400
  5. Received: from localhost (bwyatt.paston.co.uk) by red.paston.co.uk (5.x/SMI-SVR4)
  6.     id AA05577; Fri, 15 Sep 1995 23:09:13 +0100
  7. Received: by paston.co.uk.uucp (V1.16/Amiga)
  8.     id AA001d5; Sat, 16 Sep 95 03:03:20 GMT
  9. Date: Sat, 16 Sep 95 03:03:20 GMT
  10. Message-Id: <9509160303.AA001d4@paston.co.uk.uucp>
  11. In-Reply-To:  <9509150222.aa13716@post.demon.co.uk>
  12.              (from Mark Carter <Mark@westmead.demon.co.uk>)
  13.              (on Fri, 15 Sep 95 02:19:40)
  14. Lines: 36
  15. X-Mailer: ADMail 1.5 Copyright 1995 S.T.Brown
  16. From: bwyatt@paston.co.uk (Ben Wyatt)
  17. To: amos-list@access.digex.net
  18. Subject: Using the joystick in interface.
  19. Status: RO
  20. X-Status: 
  21.  
  22. Greetings Mark, you wrote some text on the subject Re: I'm off for some
  23. days, and now I'm going to answer it.
  24.  
  25. MC> Hey, Chris (or anyone else for that matter) - is it possible to to 
  26. MC> emulate mouse movements/buttons by using a joystick in such a way 
  27. MC> that AMOS cannot tell the difference. You see the problem is, I want 
  28. MC> to get interface programs working fully by using a joystick.
  29.  
  30. Try this, it *might* work:
  31. -----------------------------------------------------------------------
  32. Every 1 Proc _JOYTEST
  33. Every On
  34. '
  35. ' Interface stuff and main loop
  36. '
  37. Procedure _JOYTEST
  38.    Every On
  39.    If Jleft(1) Then Xmouse=Xmouse-1
  40.    If Jright(1) Then Xmouse=Xmouse+1
  41.    If Jup(1) Then Ymouse=Ymouse-1
  42.    If Jdown(1) Then Ymouse=Ymouse+1
  43. Endproc
  44. -----------------------------------------------------------------------
  45.  
  46. Don't know about the Fire/Left mouse button though! A tricky/damn-near-
  47. impossible one.
  48.  
  49. MC> P.S How about a command which combines Dim X(?) and Global X()
  50.  
  51. That would be useful (but only to make messy amos code look slightly less
  52. messy). ;-)
  53.  
  54. Bye  _________________________________
  55.     /                                 \
  56.     > Ben Wyatt - bwyatt@paston.co.uk <
  57.     \_________________________________/ ï¿½1995 Very Interesting Signatures